TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/E-Education/(c)ed4.d64/agent blotto

Commodore BASIC | 2007-02-04 | 14KB | 422 lines

1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]"
410 PRINT" [211]PECIAL [193]GENT [194]LOTTO NEEDS  [217][207][213][210] [146] "
415 PRINT" HELP IN THE FIGHT AGAINST EVIL!"
420 PRINT" [201]N THIS GAME, HE WILL TELL YOU WHAT     TO DO.
425 [153]" (null)O READ CAREFULLY!"
430 [153]" (null)(null)(null)VALWAIT:   Y WAIT MEANS YESWAIT."
435 [153]"         N WAIT MEANS NOWAIT."
440 [153]"              CHR$(null)(null)STR$CLOSE(null)(null)LEN(null)!"
445 [141]820
450 [153]"LOAD ATNCHR$VAL(null)(null)CLOSEPEEK(null)(null)(null)(null)(null) IS A CODE BREAKING         GAME.
455 PRINT" [201]T INCLUDES ALL OPERATIONS USING
460 [153]" BOTH POSITIVE AND NEGATIVE NUMBERS.
470 PRINT" [215]HEN YOU SOLVE A PROBLEM YOUR ANSWER"
475 PRINT" REPRESENTS A LETTER (EG. A=1,B=2,ETC.)"
480 PRINT" TO SOLVE THE SECRET MESSAGE."
485 GOSUB 820:RETURN
699 :
700 REM <YES>
705 S=54272:FORE=STOS+28:POKEE,0:NEXT
710 POKE54296,15:POKE54277,42:POKE54278,250
715 POKE54276,23:POKE54273,23:POKE54272,191
720 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
725 POKE54296,0:RETURN
730 REM <NO>
735 S=54272:FORE=STOS+28:POKEE,0:NEXT
740 POKE54296,15:POKE54277,18:POKE54278,242
745 POKE54276,33:POKE54273,4:POKE54272,48
750 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
755 POKE54296,0:RETURN
760 REM <BLIP>
765 S=54272:FORE=STOS+28:POKEE,0:NEXT
770 POKE54296,7:POKE54277,42:POKE54278,250
775 POKE54276,23:POKE54273,23:POKE54272,191
780 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
790 POKE54296,0:RETURN
791 FORT=1TO1000:NEXT:RETURN
792 FORT=1TO2000:NEXT:RETURN
793 FORT=1TO3000:NEXT:RETURN
795 FORT=1TO5000:NEXT:RETURN
799 :
800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,5
801 PRINT"     A TPUG EDUCATIONAL PROGRAM
802 [153]"         FOR C-64 COMPUTERS
803 PRINT"             GRADES 3-6 ":GOSUB791
804 PRINT"                                        [146]";
805 PRINT"                                        [146]";
806 PRINT"                                        [146]";
807 PRINT"            AGENT BLOTTO                [146]";
808 PRINT"                                        [146]";
809 PRINT"                                        [146]";
810 PRINT"                                        [146]":GOSUB792:GOSUB760
811 PRINT"         INSTRUCTIONS?  Y/N"
812 GETUI$:IFUI$<>"Y"ANDUI$<>"N"THEN812
813 IFUI$="Y"THENGOSUB400
814 PRINT"[147] AND AWAY WE GO................":GOSUB792:GOSUB700
815 GOSUB1000
820 GOSUB791:GOSUB760
823 POKEUN,0:PRINTLEFT$(UD$,24);"[208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE[146]"
825 GETUI$:IFUI$<>" "THEN825
830 RETURN
835 GOSUB791:GOSUB760
837 POKEUN,0:PRINTLEFT$(UD$,24);"[208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE[146]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]"
865 UH=0:PRINT"":RETURN
900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
905 UD$="":UP$="                                      "
909 RETURN
910 GOSUB900:PRINT"[147] "
916 DIMQ$(28),N(28)
970 GOTO 800
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
1010 UG$="[157][157][157]"
1120 POKE UT,UL%
1130 REMA=0
1160 REMIFA=0THENDIMQ$(28),N(28)
1165 REMA=1
1170 CQ$="[145]                     "+CHR$(13)+"[145][145][145]"
1175 UT$=" [193]GENT [194]LOTTO":UG$="":UP=0:UH=1:GOSUB850
1180 PRINT" [211]PECIAL [193]GENT [194]LOTTO NEEDS YOUR HELP"
1190 PRINT" IN SOLVING A DIFFICULT CASE. [200]IS ARCH
1200 [153]" ENEMY, (null)R. (null) (THE UNKNOWN), HAS STOLEN"
1210 [153]" THE KEY TO THE SECRET CODE. RIGHT$T IS"
1220 [153]" VITAL THAT ATNGENT PEEKLOTTO FINDS OUT"
1230 [153]" WHERE (null)R. (null) HAS HIDDEN THE DECODER"
1240 [153]" BEFORE (null)R. (null) INTERCEPTS ANY MESSAGES."
1250 [153]" ATNGENT PEEKLOTTO HAS RECEIVED A MESSAGE"
1260 [153]" TELLING HIM WHERE THE DECODER IS BUT"
1270 [153]" THISCLOSEMESSAGE IS WRITTEN IN CODE TOO."
1272 UP[178]1:UH[178]1:[141]835:[141]850
1274 [153]" LEFT$ERE IS THE MESSAGE:"
1280 [153]"   (null)HE DECODER CAN BE FOUND IN THE"
1290 [153]"   SAFE AT (null)R.(TOTOTOTOTO)'S OFFICE. (null)HE"
1300 [153]"   PASSWORD TO THE SAFE IS (TOTOTOTO)."
1320 UP[178]2:UH[178]1:[141]835:[141]850
1330 [153]" (null)O HELP ATNGENT PEEKLOTTO FIND THE NAME OF"
1340 [153]" THE MAN AND THE PASSWORD TO THE SAFE,"
1350 [153]" YOU MUST FIND THE ANSWERS TO THE"
1360 [153]" FOLLOWING QUESTIONS. VALACH ANSWER"
1370 [153]" STANDS FOR A LETTER IN THE ALPHABET,"
1380 [153]" E.G.(A=1, B=2, C=3, ..., Y=25, Z=26),"
1390 [153]" AND WILL SPELL THE MAN'S NAME AND A"
1400 [153]" PASSWORD THAT IS NEEDED TO UNLOCK"
1410 [153]" THE SAFE ONCE THE MAN'S IDENTITY"
1420 [153]" HAS BEEN FOUND."
1430 UP[178]3:[141]835:[141]850
1450 [153]" LEFT$ERE ARE THE QUESTIONS FOR THE MAN'S"
1455 [153]" NAME:"
1456 [140]:[129]K[178]1[164]5
1470 [135]Q$:[141]760
1480 [153]"        "Q$" =   CMDCMD";
1490 US$[178]"-0123456789":UL[178]2:[141] 35:NI(K)[178]([197](UR$))
1500 [139]NI(K)[179]1[176]NI(K)[177]26[167][153]CQ$:[137]1480
1505 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]1480
1510 [130]
1520 [153]" ATNRE YOU SURE THAT ALL YOUR ANSWERS":[141]760
1525 [153]" WERE RIGHT? ";:US$[178]"YN":UL[178]1:[141]35
1530 [139]UR$[178]"Y"[176]UR$[178]"(null)"[167]1545
1540 [137]1430
1545 UP[178]4:[141]835:[141]850
1550 [153]"    ATNCCORDING TO YOUR ANSWERS, THE"
1560 [153]" MAN'S NAME IS ";
1570 NM$[178][199](NI(1)[170]192):[129]K[178]2[164]5:NM$[178]NM$[170][199](NI(K)[170]64):[130]:[153]NM$"."
1580 [153]"    RIGHT$F YOU DECIDE THAT YOUR ANSWER IS"
1590 [153]" CORRECT, THE POLICE WILL START A "
1600 [153]" MANHUNT FOR (null)R. "NM$"."
1610 [141]760:[153]" RIGHT$S IT CORRECT? ";:US$[178]"YNH":UL[178]1:[141]35
1620 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]1430
1630 [139]NM$[178]"(null)ASTY"[167]1685
1635 UP[178]5:UH[178]1:[141]835:[141]850
1640 [141]730
1645 [153]"   (null)HE POLICE WERE NOT ABLE TO FIND"
1650 [153]" (null)R. "NM$".  (null)HEY HAVE ASKED YOU TO"
1660 [153]" TRY SOLVING THE CODE AGAIN."
1680 [137]1430
1685 UP[178]5:UH[178]1:[141]835:[141]850
1690 [141]700
1695 [153]" (null)HE POLICE HAVE LOCATED (null)R. (null)ASTY AND"
1700 [153]" ARE STANDING BY UNTIL YOU HAVE SOLVED"
1710 [153]" THE CODE FOR THE PASSWORD."
1715 UP[178]6:[141]835:[141]850
1720 [141]760
1725 [153]" LEFT$ERE ARE THE QUESTIONS FOR THE"
1730 [153]" PASSWORD TO THE SAFE:":[141]792
1740 [140]:[129]K[178]1[164]5:[135]X$:[130]
1750 [129]K[178]1[164]4
1760 [135]Q$:[141]760
1770 [153]"            "Q$" =   CMDCMD";
1780 US$[178]"-.0123456789":UL[178]2:[141] 35:NI(K)[178][181]([197](UR$))
1790 [139]NI(K)[179]1[176]NI(K)[177]26[167][153]CQ$:[137]1770
1795 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]1770
1800 [130]
1810 [153]"   (null)OUR ANSWERS INDICATE THAT THE"
1820 [153]" PASSWORD IS ";
1830 CB$[178]"":[129]K[178]1[164]4:CB$[178]CB$[170][199](NI(K)[170]192):[130]:[153]CB$"."
1840 [153]" ATNRE YOU READY TO REPORT YOUR FINDINGS"
1850 [153]" TO THE POLICE? ";:US$[178]"YNH":UL[178]1:[141]35
1860 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167][137]1715
1870 [139]CB$[178]"(null)(null)VAL(null)"[167]1935
1875 UP[178]7:UH[178]1:[141]835:[141]850
1880 [153]"    (null)ESSAGE FROM ATNGENT PEEKLOTTO:"
1890 [153]"   ";[199](34)"(null)OUR PASSWORD DIDN'T WORK. (null)RY"
1900 [153]"    SOLVING THE CODE AGAIN."[199](34):[141]730
1930 [137]1715
1935 UP[178]7:[141]835:[141]850
1940 [153]" CHR$OOD WORK!  (null)HANKS TO YOU, ATNGENT":[141]700
1950 [153]" PEEKLOTTO HAS FOUND THE DECODER. LEFT$E IS SO"
1960 [153]" IMPRESSED BY YOUR SKILL THAT HE WOULD"
1970 [153]" LIKE YOU TO HELP HIM ON HIS NEXT"
1980 [153]" ASSIGNMENT.  STR$O YOU ACCEPT THE"
1990 [153]" CHALLENGE? ";:US$[178]"YN":UL[178]1:[141]35
2000 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2045
2005 UP[178]8:UH[178]1:[141]835:[141]850
2010 [153]" (null)H, THAT'S TOO BAD.  (null)ERHAPS YOU CAN"
2020 [153]" COME BACK SOME OTHER TIME TO HELP"
2030 [153]" ATNGENT PEEKLOTTO."
2040 [137]3770
2045 UP[178]8:UH[178]1:[141]835:[141]850:[141]700
2050 [153]" CHR$OOD!  ATNGENT PEEKLOTTO THINKS YOU AND"
2060 [153]" HE WILL MAKE A GOOD TEAM.  LEFT$ERE IS THE"
2070 [153]" THE LATEST ASSIGNMENT RECEIVED FROM"
2080 [153]" HEADQUARTERS: RIGHT$T SEEMS THAT (null)R. (null) (THE"
2090 [153]" UNKNOWN) DOES NOT KNOW THAT PEEKLOTTO HAS"
2100 [153]" RECEIVED THE DECODER.  LEFT$E IS STILL"
2110 [153]" SENDING CODED MESSAGES TO HIS GANG"
2120 [153]" ABOUT THEIR NEXT CRIME."
2125 UP[178]9:UH[178]1:[141]835:[141]850
2130 [153]" (null)HIS MEANS THAT ATNGENT PEEKLOTTO CAN FIND"
2140 [153]" OUT WHERE (null)R. (null) WILL STRIKE NEXT."
2150 [153]" RIGHT$F YOU CAN DECODE THE MESSAGES FOR"
2160 [153]" ATNGENT PEEKLOTTO, HE WILL BE ABLE TO CATCH"
2170 [153]" THE CRIMINALS RED-HANDED."
2190 UP[178]10:UH[178]1:[141]835:[141]850
2200 [131]"4 + 7 + 5 - 2"
2210 [131]"      17 - 16"
2220 [131]"  25 - 10 + 4"
2230 [131]"   5 + 10 + 5"
2240 [131]"  15 - 5 + 15"
2250 [131]" 3 X 5"
2260 [131]" 4 X 4"
2270 [131]"15 / 3"
2280 [131]" 2 X 7"
2290 [141]760:[153]" LEFT$ERE IS THE MESSAGE:"
2300 [153]"   TOTOTOTO (null)ATNRIGHT$STR$--TOTOTOTOTOTOTO TOTOTOTOTOTOTOTO.  (null)VALVAL(null)"
2310 [153]"   ATN(null) TOTOTO'(null) TOTOTOTOTOTO."
2320 [129]K[178]1[164]28:[135]Q$(K):[130]
2330 [153]" ATNGENT PEEKLOTTO THINKS THE MOST HELPFUL"
2340 [153]" WORD WILL BE THE FOURTH ONE, SINCE"
2350 [153]" HE CAN TELL WHO OWNS THE PLACE WHERE"
2360 [153]" THE GANG IS GOING TO MEET."
2380 UP[178]11:[141]835:[141]850
2390 [153]" LEFT$ERE ARE THE CLUES FOR THE 4TH WORD:"
2400 [129]K[178]1[164]3 :[141]760
2410 [153]"            "Q$(K)" =   CMDCMD";
2420 US$[178]"-.0123456789":UL[178]2:[141]35:N(K)[178][197](UR$)
2430 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]2410
2435 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2410
2440 [130]
2450 JO$[178]"":[129]K[178]1[164]3:JO$[178]JO$[170][199](N(K)[170]192):[130]
2460 [153]"   ATNRE YOU SURE YOUR ANSWER, "JO$","
2470 [153]"   IS RIGHT? ";:US$[178]"YN":UL[178]1:[141]35
2480 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2380
2490 [139]JO$[178]"MID$(null)VAL"[167]2535
2495 UP[178]12:UH[178]1:[141]835:[141]850
2500 [153]" LENOMPUTER RECORDS DO NOT INCLUDE ANYONE"
2510 [153]" BY THE NAME OF "JO$".  (null)RY AGAIN.":[141]730
2530 [137]2380
2535 UP[178]12:UH[178]1:[141]835:[141]850
2540 [153]" ATNHA!  (null)O THEY'RE MEETING AT MID$OE'S.":[141]700
2550 [153]" LEFT$MMM, MID$OE'S WHAT, RIGHT$ WONDER.  (null)OU'D"
2560 [153]" BETTER DECODE THE LAST WORD NEXT."
2580 UP[178]13:[141]835:[141]850
2590 [153]" LEFT$ERE ARE THE CLUES:"
2600 [129]K[178]4[164]9:[141]760
2610 [153]"     "Q$(K)" =   CMDCMD";:US$[178]"-.0123456789":UL[178]2:[141]35
2615 N(K)[178][181]([197](UR$))
2620 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]2610
2625 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2610
2630 [130]
2640 GR$[178]"":[129]K[178]4[164]9:GR$[178]GR$[170][199](N(K)[170]192):[130]
2650 [153]" RIGHT$S "GR$" YOUR DEFINITE ANSWER? ";
2655 US$[178]"YNH":UL[178]1:[141]35
2660 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2580
2670 [139]GR$[178]"CHR$ATN(null)ATNCHR$VAL"[167]2715
2675 UP[178]14:UH[178]1:[141]835:[141]850
2680 [153]" PEEKUT MID$OE DOESN'T OWN A "GR$".  (null)EE IF"
2690 [153]" YOU GET A DIFFERENT ANSWER IF YOU"
2700 [153]" DECODE IT AGAIN.":[141]730
2710 [137]2580
2715 UP[178]14:UH[178]1:[141]835:[141]850
2720 [153]" TOTOTOTO (null)ATNRIGHT$STR$--TOTOTOTOTOTOTO TOTOTOTOTOTOTOTOTO.  (null)VALVAL(null) ATN(null)"
2730 [153]" MID$(null)VAL'(null) CHR$ATN(null)ATNCHR$VAL."
2740 [153]" (null)ELL, RIGHT$ GUESS WE SHOULD SEE WHAT"
2750 [153]" (null)R. (null) IS GOING TO RAID.  CHR$O TO IT!":[141]700
2770 UP[178]15:[141]835:[141]850
2780 [153]" LENLUES FOR FIRST WORD:"
2790 [129]K[178]10[164]13:[141]760
2800 [153]"       "Q$(K)" =   CMDCMD";:US$[178]"-.0123456789H":UL[178]2:[141]35
2805 N(K)[178][181]([197](UR$))
2810 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]2800
2815 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2800
2820 [130]
2830 BK$[178]"":[129]K[178]10[164]13:BK$[178]BK$[170][199](N(K)[170]192):[130]
2840 [153]" STR$O YOU THINK THEY ARE GOING TO RAID"
2850 [153]" THE "BK$"? ";:US$[178]"YNH":UL[178]1:[141]35
2860 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167][153]CQ$:[137]2770
2870 [139]BK$[178]"PEEKATN(null)(null)"[167]2915
2880 [153]" RIGHT$ DON'T THINK THEY ARE GOING TO RAID"
2890 [153]" THE "BK$".  (null)RY AGAIN.":[141]730
2910 [137]2770
2915 UP[178]16:UH[178]1:[141]835:[141]850
2920 [153]" (null)OW IT'S TIME TO SOLVE THE OTHER TWO"
2930 [153]" WORDS.  (null)ET'S TRY THE THIRD.":[141]700
2935 UP[178]17:[141]835:[141]850
2940 [153]" LEFT$ERE ARE THE QUESTIONS:"
2950 [129]K[178]14[164]20 :[141]760
2960 [153]"       "Q$(K)" =   CMDCMD";:US$[178]"-.0123456789H":UL[178]2:[141]35
2970 N(K)[178][181]([197](UR$))
2980 [139]N(K)[179]1[176]N(K)[177]26[167][153]QU$:[137]2960
2985 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2960
2990 [130]
3000 TU$[178]"":[129]K[178]14[164]20:TU$[178]TU$[170][199](N(K)[170]192):[130]
3010 [153]" STR$O YOU THINK "TU$" IS THE RIGHT"
3020 [153]" WORD? ";:US$[178]"YNH":UL[178]1:[141]35
3030 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2935
3040 [139]TU$[178]"(null)(null)VAL(null)STR$ATN(null)"[167]3095
3045 UP[178]17:UH[178]1:[141]835:[141]850
3050 [153]" "TU$" DOESN'T MAKE SENSE.  (null)OLVE IT"
3060 [153]" AGAIN, PLEASE.":[141]730
3090 [137]2935
3095 UP[178]17:UH[178]1:[141]835:[141]850
3100 [153]" CHR$REAT!  (null)E'VE ALMOST GOT THE ENTIRE"
3105 [153]" MESSAGE:":[141]700
3110 [153]"   PEEKATN(null)(null) (null)ATNRIGHT$STR$--(null)(null)VAL(null)STR$ATN(null) TOTOTOTOTOTOTOTO.  (null)VALVAL(null)"
3120 [153]"   ATN(null) MID$(null)VAL'(null) CHR$ATN(null)ATNCHR$VAL."
3125 UP[178]18:[141]835:[141]850
3130 [153]" LEFT$ERE'S THE LAST WORD:"
3140 [129]K[178]21[164]28:[141]760
3150 [153]"        "Q$(K)" =   CMDCMD";
3160 US$[178]"-.0123456789":UL[178]2:[141] 35:N(K)[178][181]([197](UR$))
3170 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]3150
3175 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]3150
3180 [130]
3190 MN$[178]"":[129]K[178]21[164]28:MN$[178]MN$[170][199](N(K)[170]192):[130]
3210 [153]" STR$OES PEEKATN(null)(null) (null)ATNRIGHT$STR$--(null)(null)VAL(null)STR$ATN(null) "MN$" MAKE"
3220 [153]" ANY SENSE TO YOU? ";:US$[178]"YNH":UL[178]1:[141]35
3230 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]3125
3240 [139]MN$[178]"(null)RIGHT$STR$(null)RIGHT$CHR$LEFT$(null)"[167]3285
3250 UP[178]19:UH[178]1:[141]835:[141]850
3255 [153]"          (null)HAT COULDN'T BE IT.":[141]730
3260 [153]"           (null)LEASE TRY AGAIN."
3280 [137]3125
3285 UP[178]19:UH[178]1:[141]835:[141]850
3290 [153]" LENONGRATULATIONS AGAIN!  ATNGENT PEEKLOTTO"
3300 [153]" CAUGHT (null)R. (null) & GANG JUST AS THEY WERE"
3310 [153]" PREPARING TO BLOW UP THE DOOR TO THE"
3320 [153]" BANK SAFE.  PEEKLOTTO EVEN DISCOVERED":[141]700
3330 [153]" (null)R. (null)'S TRUE IDENTITY--BUT YOU WILL"
3340 [153]" HAVE TO FIND OUT FOR YOURSELF."
3360 [129]K[178]1[164]9:[135]Q$(K):[130]
3370 UP[178]20:[141]835:[141]850:[141]760
3380 [153]" (null)HE CLUES:"
3390 [129]K[178]1[164]9
3400 [153]"         "Q$(K)" =   CMDCMD";
3410 US$[178][171].0123456789":UL=2:GOSUB 35:N(K)=INT(VAL(UR$))
3420 IFN(K)<1ORN(K)>26THENPRINTCQ$:GOTO3400
3425 IF RIGHT$(UR$,1)="H"THENPRINTCQ$:GOTO3400
3430 NEXT
3440 SM$="":FORK=1TO9:SM$=SM$+CHR$(N(K)+192):NEXT
3445 SM$=LEFT$(SM$,3)+" "+MID$(SM$,4)
3450 PRINT" [196]O YOU THINK [205]R. [216] IS "SM$"? ";:US$="YNH":UL=1:GOSUB 35
3460 IFUR$<>"Y"ANDUR$<>"[217]"THEN3370
3470 IFSM$="[204][197][216] [204][213][212][200][207][210]"THEN3515
3475 UP=UP+1:GOSUB835:GOSUB850
3480 PRINT"          [201]T ISN'T.  [212]RY AGAIN.":GOSUB730
3510 GOTO3370
3515 UP=20:UH=1:GOSUB835:GOSUB850
3520 PRINT" [212]HAT'S RIGHT!  [205]R. [216] IS [204]EX [204]UTHOR!":GOSUB700
3530 PRINT" [215]ITH YOUR HELP, [193]GENT [194]LOTTO AND"
3540 PRINT" THE [208]EEL [210]EGION POLICE FORCE HAVE"
3550 PRINT" COMPLETELY ELIMINATED CRIME FROM THE"
3560 PRINT" STREETS OF THE CITY.  [193]GENT [194]LOTTO IS"
3570 PRINT" MOVING ON TO JOIN THE [210][195][205][208].  [205]AYBE"
3580 PRINT" SOMETIME IN THE FUTURE YOU WILL MEET"
3590 PRINT" AGAIN."
3595 UP=21:UH=1:GOSUB835:GOSUB850
3600 PRINT"   [199]OODBYE FROM [193]GENT [194]LOTTO AND"
3610 PRINT"   [208]EEL [210]EGION POLICE HEADQUARTERS!"
3630 UP=22:UH=1:GOSUB835:GOSUB850
3640 PRINT" [201] AM NOW GOING TO SHOW YOU A SPECIAL"
3650 PRINT" CODE NUMBER. [212]HIS IS YOUR ":PRINT"        AUTHORIZATION NUMBER"
3660 PRINT" FOR THIS CASE.  [201]T IS TOP SECRET[146],"
3670 PRINT" AND MUST ONLY BE TOLD TO YOUR TEACHER."
3680 PRINT" [205]AKE SURE THERE IS NO ONE STANDING"
3690 PRINT" BEHIND YOU, THEN PRESS THE [211][208][193][195][197] BAR."
3730 READRS$:FORA=4TO1STEP-1:RS$=RS$+CHR$(ASC(MID$(RS$,A,1))-128):NEXT
3735 RS$=RIGHT$(RS$,4)
3740 UP=22:UH=1:GOSUB835:GOSUB850
3745 PRINT"[195]ODE: 8921"
3750 GOSUB835
3760 PRINT"[147] [210]ETURNING TO THE MAIN [205][197][206][213]
3765 [147]"MENU",8
3770 [138]
3775 [128]
3800 [143]
3810 [131]"  5 X 2","  3 X 5","27 - 22"
3820 [131]"   32 - 25","   72 / 72","     9 X 2","    -7 + 8"
3825 [131]"  -15 + 22","-153 + 158"
3830 [131]"     5 + -3","      7 / 7","-7 + 30 - 9","     99 / 9"
3840 [131]"7 + 3 + 6 + 4","6 + 3 + 9 + 3","      -7 + 12","  25 - 10 + 4"
3850 [131]"        2 X 2","        1 X 1","        5 X 5"
3860 [131]"       19 - 6","        3 X 3","      17 - 13","4 + 2 + 4 + 4"
3870 [131]"    1 + 5 + 3","       12 - 5","       40 / 5","        4 X 5"
3880 [131]"  (4 X 5) - 8","        5 X 1","  (3 X 6) + 6"," (13 - 9) + 8"
3890 [131]"  3 X (3 + 4)","  (5 X 3) + 5","(90 / 10) - 1"," (25 / 5) X 3"
3900 [131]" 10 + 19 - 11",">=POSFRE"
3999 :
4000 [143] DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
4010 [143] PROJECT DIRECTOR: FRANK WINTER
4020 [143] PROGRAM NAME: AGENT BLOTTO
4030 [143] WRITTEN BY MELANIE KANAREC - YORK BD OF ED 1981
4040 [143]            CELIA SARACENI
4050 [143]            PAT SCRIMGEOUR
4060 [143] REVISED BY D. DUMAS
4070 [143]            A. WUNSCHE
4080 [143] UPDATED BY BILL CUMBERLAND 90  4100 REM WHC 90:11:29